perm filename STIPPL.MF[PMU,TEX] blob sn#709664 filedate 1983-05-05 generic text, type T, neo UTF8
% The Stipple Pattern Font created by Peter Ullman
% This file is Copyright (C) 1983 by Peter M. Ullman
ptsize=14;
fontidentifier "STIPPLE";
w0=(.4*pixels)+blacker;
w1=(.8*pixels)+blacker;
input exerp;
.

"The METAL character corresponding to the letter m";
x1=x3=x5=0;
x2=x4=x6=ptsize*pixels;
y1=y2=1(ptsize*pixels)/6;
y3=y4=3(ptsize*pixels)/6;
y5=y6=5(ptsize*pixels)/6;
charcode `m; charwd ptsize; charht ptsize;
cpen;
w0 draw 1..2; draw 3..4; draw 5..6.

"The POLY character corresponding to the letter p";
x1=x6=0;
x2=x5=(ptsize*pixels)/2;
x3=x4=ptsize*pixels;
y5=y6=0;
y1=y4=(ptsize*pixels)/2;
y2=y3=ptsize*pixels;
charcode `p; charwd ptsize; charht ptsize;
cpen;
w0 draw 1..2; draw 3..6; draw 4..5.

"The DIFFUSION character corresponding to the letter d";
x1=1(ptsize*pixels)/4;
x2=3(ptsize*pixels)/4;
x3=0;
x4=x5=(ptsize*pixels)/2;
x6=14*pixels;
y1=y2=0;
y3=y4=1(ptsize*pixels)/3;
y5=y6=2(ptsize*pixels)/3;
charcode `d; charwd ptsize; charht ptsize;
cpen;
w0 draw 1; draw 2; draw 3; draw 4; draw 5; draw 6.

"The VERTICAL STRAIGHT LINE character corresponding to the letter l";
x1=x2=y1=0;
y2=ptsize*pixels;
charcode `l; charht ptsize; charwd .8;
cpen;
w1 draw 1..2.

"The HORIZONTAL STRAIGHT LINE character corresponding to the letter t";
x1=y1=y2=0;
x2=ptsize*pixels;
charcode `t; charwd ptsize; charht .8;
cpen;
w1 draw 1..2.